home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / reportplus / source / f9.c < prev    next >
Encoding:
C/C++ Source or Header  |  2002-10-27  |  21.8 KB  |  634 lines
  1. #include <exec/types.h>
  2. #include <proto/exec.h>
  3. #include <intuition/intuition.h>
  4. #include <intuition/gadgetclass.h>
  5. #include <proto/intuition.h>
  6. #include <libraries/gadtools.h>
  7. #include <proto/gadtools.h>
  8. #include <libraries/resource.h>
  9. #include <proto/resource.h>
  10. #include <resources/battmem.h>
  11. #include <resources/battmembitsamiga.h>
  12. #include <resources/battmembitsshared.h>
  13. #include <proto/battmem.h>
  14. #include <graphics/gfx.h>
  15. #include <clib/graphics_protos.h>
  16. #include <dos/dos.h>
  17. #include <clib/dos_protos.h>
  18.  
  19. #include <ctype.h>
  20. #include <stdlib.h>
  21. #include "rp.h"
  22.  
  23. #define ALL_REACTION_CLASSES
  24. #include <reaction/reaction.h>
  25.  
  26. #define BOXWIDTH   (10 + (32 * 8))
  27. #define BOXHEIGHT  ( 6 + ( 3 * 8))
  28.  
  29. MODULE UBYTE IOBuffer[LONGESTFIELD + 1];
  30.  
  31. AGLOBAL struct Library*    BattMemBase = NULL;
  32.  
  33. // from rp.c
  34. IMPORT ABOOL               BattBuffer[96];
  35. IMPORT SBYTE               page;
  36. IMPORT struct Menu*        MenuPtr;
  37. IMPORT struct TextFont*    FontPtr;
  38. IMPORT struct Screen*      ScreenPtr;
  39. IMPORT struct Window*      MainWindowPtr;
  40. IMPORT TEXT                aslresult[PATHNAMEFIELD + 1];
  41. IMPORT Object*             WinObject[FUNCTIONS + 1];
  42.  
  43. AGLOBAL struct Gadget*     batt_gadgets[GIDS_9 + 1];
  44.  
  45. MODULE struct
  46. {   TEXT output[PATHNAMEFIELD + 1];
  47. } batt =
  48. {   ""
  49. };
  50.  
  51. MODULE void updatebattgadgets(void);
  52. MODULE void drawbit(ULONG bit, UBYTE colour);
  53. MODULE void readbatt(ABOOL print);
  54.  
  55. AGLOBAL void batt1(void)
  56. {   ULONG       hostid = 0;
  57.     struct Hook Hook9Struct;
  58.  
  59.     if (!BattBuffer[BATTMEM_SCSI_HOST_ID_ADDR])
  60.     {   hostid += 4;
  61.     }
  62.     if (!BattBuffer[BATTMEM_SCSI_HOST_ID_ADDR + 1])
  63.     {   hostid += 2;
  64.     }
  65.     if (!BattBuffer[BATTMEM_SCSI_HOST_ID_ADDR + 2])
  66.     {   hostid++;
  67.     }
  68.  
  69.     if (!BattMemBase)
  70.     {   if (!(BattMemBase = OpenResource(BATTMEMNAME)))
  71.         {   rq("Can't open battery RAM resource!");
  72.     }   }
  73.  
  74.     InitHook(&Hook9Struct, Hook9Func, NULL);
  75.  
  76.     /* Create the window object. */
  77.     lockscreen();
  78.  
  79.     if (!(WinObject[9] =
  80.     NewObject
  81.     (
  82.     WINDOW_GetClass(), NULL,
  83.     WA_PubScreen,                 ScreenPtr,
  84.     WA_ScreenTitle,               "Report+",
  85.     WA_Title,                     "Report+: Battery-backed Memory Editor",
  86.     WA_Activate,                  TRUE,
  87.     WA_DepthGadget,               TRUE,
  88.     WA_DragBar,                   TRUE,
  89.     WA_CloseGadget,               TRUE,
  90.     WA_IDCMP,                     IDCMP_RAWKEY | IDCMP_MOUSEBUTTONS,
  91.     WINDOW_IDCMPHook,             &Hook9Struct,
  92.     WINDOW_IDCMPHookBits,         IDCMP_RAWKEY | IDCMP_MOUSEBUTTONS,
  93.     WINDOW_MenuStrip,             MenuPtr,
  94.     WINDOW_Position,              WPOS_CENTERSCREEN,
  95.     WINDOW_ParentGroup,           batt_gadgets[GID_9_LY1] =
  96.                                   NewObject(LAYOUT_GetClass(), NULL,
  97.         // root-layout
  98.         LAYOUT_Orientation,       LAYOUT_ORIENT_VERT,
  99.         LAYOUT_SpaceOuter,        TRUE,
  100.         LAYOUT_DeferLayout,       TRUE,
  101.         LAYOUT_AddChild,          NewObject(LAYOUT_GetClass(), NULL,
  102.             // layout
  103.             LAYOUT_Orientation,   LAYOUT_ORIENT_HORIZ,
  104.             LAYOUT_VertAlignment, LALIGN_CENTER,
  105.             LAYOUT_HorizAlignment,LALIGN_CENTER,
  106.             LAYOUT_BevelStyle,    BVS_NONE,
  107.                 LAYOUT_AddChild,
  108.                 NewObject
  109.                 (   LAYOUT_GetClass(),    NULL,
  110.                     LAYOUT_Orientation,   LAYOUT_ORIENT_VERT,
  111.                     LAYOUT_SpaceOuter,    TRUE,
  112.                     LAYOUT_VertAlignment, LALIGN_CENTER,
  113.                     LAYOUT_HorizAlignment,LALIGN_LEFT,
  114.                     LAYOUT_BevelStyle,    BVS_FIELD,
  115.                     LAYOUT_AddChild,          batt_gadgets[GID_9_CB1] =
  116.                     NewObject
  117.                     (   CHECKBOX_GetClass(),  NULL,
  118.                         GA_ID,                GID_9_CB1,
  119.                         GA_RelVerify,         TRUE,
  120.                         GA_Text,              "AMIGA AMNESIA ($00)",
  121.                         GA_Selected,          (BOOL) ((BattBuffer[BATTMEM_AMIGA_AMNESIA_ADDR] & 1)? 0 : 1),
  122.                     TAG_END),
  123.                     CHILD_WeightedHeight,     0,
  124.                     LAYOUT_AddChild,          batt_gadgets[GID_9_CB2] =
  125.                     NewObject
  126.                     (   CHECKBOX_GetClass(),  NULL,
  127.                         GA_ID,                GID_9_CB2,
  128.                         GA_RelVerify,         TRUE,
  129.                         GA_Text,              "SHARED AMNESIA ($40)",
  130.                         GA_Selected,          (BOOL) ((BattBuffer[BATTMEM_SHARED_AMNESIA_ADDR] & 1)? 0 : 1),
  131.                     TAG_END),
  132.                     CHILD_WeightedHeight,     0,
  133.                     LAYOUT_AddChild,          batt_gadgets[GID_9_CB3] =
  134.                     NewObject
  135.                     (   CHECKBOX_GetClass(),  NULL,
  136.                         GA_ID,                GID_9_CB3,
  137.                         GA_RelVerify,         TRUE,
  138.                         GA_Text,              "SCSI TIMEOUT ($01)",
  139.                         GA_Selected,          (BOOL) BattBuffer[BATTMEM_SCSI_TIMEOUT_ADDR],
  140.                     TAG_END),
  141.                     CHILD_WeightedHeight,     0,
  142.                     LAYOUT_AddChild,          batt_gadgets[GID_9_CB4] =
  143.                     NewObject
  144.                     (   CHECKBOX_GetClass(),  NULL,
  145.                         GA_ID,                GID_9_CB4,
  146.                         GA_RelVerify,         TRUE,
  147.                         GA_Text,              "SCSI LUNS ($02)",
  148.                         GA_Selected,          (BOOL) BattBuffer[BATTMEM_SCSI_LUNS_ADDR],
  149.                     TAG_END),
  150.                     CHILD_WeightedHeight,     0,
  151.                     LAYOUT_AddChild,          batt_gadgets[GID_9_CB5] =
  152.                     NewObject
  153.                     (   CHECKBOX_GetClass(),  NULL,
  154.                         GA_ID,                GID_9_CB5,
  155.                         GA_RelVerify,         TRUE,
  156.                         GA_Text,              "SCSI SYNC XFER ($44)",
  157.                         GA_Selected,          (BOOL) BattBuffer[BATTMEM_SCSI_SYNC_XFER_ADDR],
  158.                     TAG_END),
  159.                     CHILD_WeightedHeight,     0,
  160.                     LAYOUT_AddChild,          batt_gadgets[GID_9_CB6] =
  161.                     NewObject
  162.                     (   CHECKBOX_GetClass(),  NULL,
  163.                         GA_ID,                GID_9_CB6,
  164.                         GA_RelVerify,         TRUE,
  165.                         GA_Text,              "SCSI FAST SYNC ($45)",
  166.                         GA_Selected,          (BOOL) ((BattBuffer[BATTMEM_SCSI_FAST_SYNC_ADDR] & 1)? 0 : 1),
  167.  
  168.                     TAG_END),
  169.                     CHILD_WeightedHeight,     0,
  170.                     LAYOUT_AddChild,          batt_gadgets[GID_9_CB7] =
  171.                     NewObject
  172.                     (   CHECKBOX_GetClass(),  NULL,
  173.                         GA_ID,                GID_9_CB7,
  174.                         GA_RelVerify,         TRUE,
  175.                         GA_Text,              "SCSI TAG QUEUES ($46)",
  176.                         GA_Selected,          (BOOL) BattBuffer[BATTMEM_SCSI_TAG_QUEUES_ADDR],
  177.                     TAG_END),
  178.                     CHILD_WeightedHeight,     0,
  179.                     LAYOUT_AddChild,
  180.                     NewObject
  181.                     (   LAYOUT_GetClass(),    NULL,
  182.                         LAYOUT_Orientation,   LAYOUT_ORIENT_HORIZ,
  183.                         LAYOUT_VertAlignment, LALIGN_CENTER,
  184.                         LAYOUT_HorizAlignment,LALIGN_LEFT,
  185.                         LAYOUT_BevelStyle,    BVS_NONE,
  186.                         LAYOUT_AddImage,
  187.                         NewObject
  188.                         (   LABEL_GetClass(), NULL,
  189.                             LABEL_Text,       "SCSI HOST ID ($41-43):",
  190.                         TAG_END),
  191.                         CHILD_WeightedWidth,  0,
  192.                         LAYOUT_AddChild,          batt_gadgets[GID_9_IN1] =
  193.                         NewObject
  194.                         (   INTEGER_GetClass(),   NULL,
  195.                             GA_ID,                GID_9_IN1,
  196.                             GA_RelVerify,         TRUE,
  197.                             GA_TabCycle,          TRUE,
  198.                             INTEGER_Number,       hostid,
  199.                             INTEGER_Minimum,      0,
  200.                             INTEGER_Maximum,      7,
  201.                             INTEGER_MinVisible,   1,
  202.                         TAG_END),                                      
  203.                         CHILD_WeightedHeight,     0,
  204.                     TAG_END),
  205.                     CHILD_WeightedHeight,         0,
  206.             TAG_END),
  207.             CHILD_WeightedWidth,      0,
  208.                 LAYOUT_AddChild,
  209.                 NewObject
  210.                 (   LAYOUT_GetClass(),    NULL,
  211.                     LAYOUT_Orientation,   LAYOUT_ORIENT_VERT,
  212.                     LAYOUT_VertAlignment, LALIGN_CENTER,
  213.                     LAYOUT_HorizAlignment,LALIGN_CENTER,
  214.                     LAYOUT_BevelStyle,    BVS_NONE,
  215.                     LAYOUT_AddChild,      batt_gadgets[GID_9_SP1] =
  216.                     NewObject
  217.                     (   SPACE_GetClass(), NULL,
  218.                         GA_ID,            GID_9_SP1,
  219.                         GA_RelVerify,     TRUE,
  220.                         SPACE_MinWidth,   BOXWIDTH,
  221.                         SPACE_MinHeight,  BOXHEIGHT,
  222.                         SPACE_BevelStyle, BVS_FIELD,
  223.                     TAG_END),
  224.                     CHILD_WeightedHeight, 0,
  225.                     LAYOUT_AddChild,
  226.                     NewObject
  227.                     (   LAYOUT_GetClass(),    NULL,
  228.                         LAYOUT_Orientation,   LAYOUT_ORIENT_HORIZ,
  229.                         LAYOUT_VertAlignment, LALIGN_CENTER,
  230.                         LAYOUT_HorizAlignment,LALIGN_CENTER,
  231.                         LAYOUT_BevelStyle,    BVS_NONE,
  232.                         LAYOUT_AddChild,      batt_gadgets[GID_9_BU1] =
  233.                         NewObject
  234.                         (   NULL,             "button.gadget",
  235.                             GA_ID,            GID_9_BU1,
  236.                             GA_RelVerify,     TRUE,
  237.                             GA_Text,          "_Revert",
  238.                         TAG_END),
  239.                         CHILD_WeightedWidth,  50,
  240.                         LAYOUT_AddChild,      batt_gadgets[GID_9_BU2] =
  241.                         NewObject
  242.                         (   NULL,             "button.gadget",
  243.                             GA_ID,            GID_9_BU2,
  244.                             GA_RelVerify,     TRUE,
  245.                             GA_Text,          "_Write",
  246.                         TAG_END),
  247.                         CHILD_WeightedWidth,  50,
  248.                     TAG_END),
  249.                     CHILD_WeightedHeight,     0,
  250.             TAG_END),
  251.             CHILD_WeightedHeight,         0,
  252.         TAG_END),
  253.         CHILD_WeightedHeight,         0,
  254.     TAG_END),
  255.     TAG_END
  256.     )))
  257.     {   rq("Can't create ReAction object(s)!");
  258.     }
  259.     unlockscreen();
  260.     openwindow();
  261.     ActivateLayoutGadget(batt_gadgets[GID_9_LY1], MainWindowPtr, NULL, (Object) batt_gadgets[GID_9_IN1]);
  262.  
  263.     OnMenu(MainWindowPtr, FULLMENUNUM(MN_PROJECT, IN_OPEN,   NOSUB));
  264.     OnMenu(MainWindowPtr, FULLMENUNUM(MN_PROJECT, IN_SAVE,   NOSUB));
  265.     OnMenu(MainWindowPtr, FULLMENUNUM(MN_PROJECT, IN_SAVEAS, NOSUB));
  266.  
  267.     SetFont(MainWindowPtr->RPort, FontPtr);
  268.  
  269.     readbatt(TRUE);
  270.  
  271.     loop();
  272.     closewindow();
  273. }
  274.  
  275. MODULE void updatebattgadgets(void)
  276. {   ULONG hostid = 0;
  277.  
  278.     SetGadgetAttrs
  279.     (   batt_gadgets[GID_9_CB1], MainWindowPtr, NULL,
  280.         GA_Selected, (BOOL) ((BattBuffer[BATTMEM_AMIGA_AMNESIA_ADDR] & 1)? 0 : 1),
  281.     TAG_END);
  282.     RefreshGadgets((struct Gadget *) batt_gadgets[GID_9_CB1], MainWindowPtr, NULL);
  283.  
  284.     SetGadgetAttrs
  285.     (   batt_gadgets[GID_9_CB2], MainWindowPtr, NULL,
  286.         GA_Selected, (BOOL) ((BattBuffer[BATTMEM_SHARED_AMNESIA_ADDR] & 1)? 0 : 1),
  287.     TAG_END);
  288.     RefreshGadgets((struct Gadget *) batt_gadgets[GID_9_CB2], MainWindowPtr, NULL);
  289.  
  290.     SetGadgetAttrs
  291.     (   batt_gadgets[GID_9_CB3], MainWindowPtr, NULL,
  292.         GA_Selected, (BOOL) BattBuffer[BATTMEM_SCSI_TIMEOUT_ADDR],
  293.     TAG_END);
  294.     RefreshGadgets((struct Gadget *) batt_gadgets[GID_9_CB3], MainWindowPtr, NULL);
  295.  
  296.     SetGadgetAttrs
  297.     (   batt_gadgets[GID_9_CB4], MainWindowPtr, NULL,
  298.         GA_Selected, (BOOL) BattBuffer[BATTMEM_SCSI_LUNS_ADDR],
  299.     TAG_END);
  300.     RefreshGadgets((struct Gadget *) batt_gadgets[GID_9_CB4], MainWindowPtr, NULL);
  301.  
  302.     SetGadgetAttrs
  303.     (   batt_gadgets[GID_9_CB5], MainWindowPtr, NULL,
  304.         GA_Selected, (BOOL) BattBuffer[BATTMEM_SCSI_SYNC_XFER_ADDR],
  305.     TAG_END);
  306.     RefreshGadgets((struct Gadget *) batt_gadgets[GID_9_CB5], MainWindowPtr, NULL);
  307.  
  308.     SetGadgetAttrs
  309.     (   batt_gadgets[GID_9_CB6], MainWindowPtr, NULL,
  310.         GA_Selected, (BOOL) ((BattBuffer[BATTMEM_SCSI_FAST_SYNC_ADDR] & 1)? 0 : 1),
  311.     TAG_END);
  312.     RefreshGadgets((struct Gadget *) batt_gadgets[GID_9_CB6], MainWindowPtr, NULL);
  313.  
  314.     SetGadgetAttrs
  315.     (   batt_gadgets[GID_9_CB7], MainWindowPtr, NULL,
  316.         GA_Selected, (BOOL) BattBuffer[BATTMEM_SCSI_TAG_QUEUES_ADDR],
  317.     TAG_END);
  318.     RefreshGadgets((struct Gadget *) batt_gadgets[GID_9_CB7], MainWindowPtr, NULL);
  319.  
  320.     if (!BattBuffer[BATTMEM_SCSI_HOST_ID_ADDR])
  321.     {   hostid += 4;
  322.     }
  323.     if (!BattBuffer[BATTMEM_SCSI_HOST_ID_ADDR + 1])
  324.     {   hostid += 2;
  325.     }
  326.     if (!BattBuffer[BATTMEM_SCSI_HOST_ID_ADDR + 2])
  327.     {   hostid++;
  328.     }
  329.  
  330.     SetGadgetAttrs
  331.     (   batt_gadgets[GID_9_IN1], MainWindowPtr, NULL,
  332.         INTEGER_Number, hostid,
  333.     TAG_END);
  334. }
  335.  
  336. MODULE void drawbit(ULONG bit, UBYTE colour)
  337. {   Move
  338.     (   MainWindowPtr->RPort,
  339.         batt_gadgets[GID_9_SP1]->LeftEdge + 5 +         (8 * (bit % 32)),
  340.         batt_gadgets[GID_9_SP1]->TopEdge  + 2 + FONTY + (8 * (bit / 32))
  341.     );
  342.  
  343.     if
  344.     (   (bit >= 0x0  && bit <= 0x2)
  345.      || (bit >= 0x40 && bit <= 0x46)
  346.     )
  347.     {   if (colour == BLACK)
  348.         {   colour = GREY;
  349.         }
  350.         SetAPen(MainWindowPtr->RPort, colour);
  351.         SetBPen(MainWindowPtr->RPort, BLACK);
  352.     } else
  353.     {   SetAPen(MainWindowPtr->RPort, colour);
  354.         SetBPen(MainWindowPtr->RPort, GREY);
  355.     }
  356.  
  357.     if (BattBuffer[bit] & 1)
  358.         Text(MainWindowPtr->RPort, "1", 1);
  359.     else
  360.         Text(MainWindowPtr->RPort, "0", 1);
  361.     return;
  362. }
  363.  
  364. MODULE void readbatt(ABOOL print)
  365. {   ULONG i;
  366.  
  367.     ObtainBattSemaphore();
  368.     for (i = 0; i <= 95; i++)
  369.     {   if (ReadBattMem(&BattBuffer[i], i, 1))
  370.         {   ReleaseBattSemaphore();
  371.             rq("Can't read battery-backed memory!");
  372.     }   }
  373.     if (print)
  374.         for (i = 0; i <= 95; i++)
  375.             drawbit(i, BLACK);
  376.     ReleaseBattSemaphore();
  377. }
  378.  
  379. AGLOBAL void batt_loop(ULONG gid)
  380. {   ULONG thisbit, hostid;
  381.  
  382.     switch(gid)
  383.     {
  384.     case GID_9_BU1:
  385.         readbatt(TRUE);
  386.         updatebattgadgets();
  387.     break;
  388.     case GID_9_BU2:
  389.         writebatt(TRUE);
  390.     break;
  391.     case GID_9_IN1:
  392.         if (!(GetAttr
  393.         (   INTEGER_Number, batt_gadgets[GID_9_IN1], (ULONG *) &hostid
  394.         )))
  395.         {   rq("Unsupported inquiry!"); // should never happen
  396.         }
  397.         if (hostid < 0 || hostid > 7)
  398.         {   hostid = 7;
  399.         }
  400.         SetGadgetAttrs
  401.         (   batt_gadgets[GID_9_IN1], MainWindowPtr, NULL,
  402.             INTEGER_Number, hostid,
  403.             TAG_END
  404.         );
  405.         BattBuffer[BATTMEM_SCSI_HOST_ID_ADDR]     = (hostid & 4)? 0 : 1;
  406.         BattBuffer[BATTMEM_SCSI_HOST_ID_ADDR + 1] = (hostid & 2)? 0 : 1;
  407.         BattBuffer[BATTMEM_SCSI_HOST_ID_ADDR + 2] = (hostid & 1)? 0 : 1;
  408.         drawbit(BATTMEM_SCSI_HOST_ID_ADDR    , WHITE);
  409.         drawbit(BATTMEM_SCSI_HOST_ID_ADDR + 1, WHITE);
  410.         drawbit(BATTMEM_SCSI_HOST_ID_ADDR + 2, WHITE);
  411.     break;
  412.     case GID_9_CB1:
  413.         if (!(GetAttr
  414.         (   GA_Selected, batt_gadgets[GID_9_CB1], (ULONG *) &thisbit
  415.         )))
  416.         {   rq("Unsupported inquiry!"); // should never happen
  417.         }
  418.         if (thisbit)
  419.         {   BattBuffer[BATTMEM_AMIGA_AMNESIA_ADDR] = 0;
  420.         } else
  421.         {   BattBuffer[BATTMEM_AMIGA_AMNESIA_ADDR] = 1;
  422.         }
  423.         drawbit(BATTMEM_AMIGA_AMNESIA_ADDR, WHITE);
  424.     break;
  425.     case GID_9_CB2:
  426.         if (!(GetAttr
  427.         (   GA_Selected, batt_gadgets[GID_9_CB2], (ULONG *) &thisbit
  428.         )))
  429.         {   rq("Unsupported inquiry!"); // should never happen
  430.         }
  431.         if (thisbit)
  432.         {   BattBuffer[BATTMEM_SHARED_AMNESIA_ADDR] = 0;
  433.         } else
  434.         {   BattBuffer[BATTMEM_SHARED_AMNESIA_ADDR] = 1;
  435.         }
  436.         drawbit(BATTMEM_SHARED_AMNESIA_ADDR, WHITE);
  437.     break;
  438.     case GID_9_CB3:
  439.         if (!(GetAttr
  440.         (   GA_Selected, batt_gadgets[GID_9_CB3], (ULONG *) &thisbit
  441.         )))
  442.         {   rq("Unsupported inquiry!"); // should never happen
  443.         }
  444.         if (thisbit)
  445.         {   BattBuffer[BATTMEM_SCSI_TIMEOUT_ADDR] = 1;
  446.         } else
  447.         {   BattBuffer[BATTMEM_SCSI_TIMEOUT_ADDR] = 0;
  448.         }
  449.         drawbit(BATTMEM_SCSI_TIMEOUT_ADDR, WHITE);
  450.     break;
  451.     case GID_9_CB4:
  452.         if (!(GetAttr
  453.         (   GA_Selected, batt_gadgets[GID_9_CB4], (ULONG *) &thisbit
  454.         )))
  455.         {   rq("Unsupported inquiry!"); // should never happen
  456.         }
  457.         if (thisbit)
  458.         {   BattBuffer[BATTMEM_SCSI_LUNS_ADDR] = 1;
  459.         } else
  460.         {   BattBuffer[BATTMEM_SCSI_LUNS_ADDR] = 0;
  461.         }
  462.         drawbit(BATTMEM_SCSI_LUNS_ADDR, WHITE);
  463.     break;
  464.     case GID_9_CB5:
  465.         if (!(GetAttr
  466.         (   GA_Selected, batt_gadgets[GID_9_CB5], (ULONG *) &thisbit
  467.         )))
  468.         {   rq("Unsupported inquiry!"); // should never happen
  469.         }
  470.         if (thisbit)
  471.         {   BattBuffer[BATTMEM_SCSI_SYNC_XFER_ADDR] = 1;
  472.         } else
  473.         {   BattBuffer[BATTMEM_SCSI_SYNC_XFER_ADDR] = 0;
  474.         }
  475.         drawbit(BATTMEM_SCSI_SYNC_XFER_ADDR, WHITE);
  476.     break;
  477.     case GID_9_CB6:
  478.         if (!(GetAttr
  479.         (   GA_Selected, batt_gadgets[GID_9_CB6], (ULONG *) &thisbit
  480.         )))
  481.         {   rq("Unsupported inquiry!"); // should never happen
  482.         }
  483.         if (thisbit)
  484.         {   BattBuffer[BATTMEM_SCSI_FAST_SYNC_ADDR] = 0;
  485.         } else
  486.         {   BattBuffer[BATTMEM_SCSI_FAST_SYNC_ADDR] = 1;
  487.         }
  488.         drawbit(BATTMEM_SCSI_FAST_SYNC_ADDR, WHITE);
  489.     break;
  490.     case GID_9_CB7:
  491.         if (!(GetAttr
  492.         (   GA_Selected, batt_gadgets[GID_9_CB7], (ULONG *) &thisbit
  493.         )))
  494.         {   rq("Unsupported inquiry!"); // should never happen
  495.         }
  496.         if (thisbit)
  497.         {   BattBuffer[BATTMEM_SCSI_TAG_QUEUES_ADDR] = 1;
  498.         } else
  499.         {   BattBuffer[BATTMEM_SCSI_TAG_QUEUES_ADDR] = 0;
  500.         }
  501.         drawbit(BATTMEM_SCSI_TAG_QUEUES_ADDR, WHITE);
  502.     break;
  503.     default:
  504.     break;
  505. }   }
  506.  
  507. AGLOBAL void writebatt(ABOOL verify)
  508. {   ULONG i;
  509.  
  510.     ObtainBattSemaphore();
  511.     for (i = 0; i <= 95; i++)
  512.     {   if (WriteBattMem(&BattBuffer[i], i, 1))
  513.         {   ReleaseBattSemaphore();
  514.             rq("Can't write battery-backed memory!");
  515.     }   }
  516.     ReleaseBattSemaphore();
  517.     if (verify)
  518.     {   readbatt(TRUE);
  519. }   }
  520.  
  521. AGLOBAL void batt_open(void)
  522. {   BPTR  FileHandle;
  523.     ULONG i;
  524.  
  525.     if (asl("~(#?.info)"))
  526.     {   if (!(FileHandle = (BPTR) Open(aslresult, MODE_OLDFILE)))
  527.         {   DisplayBeep(NULL);
  528.             return;
  529.         }
  530.         /* The format of "battery RAM" files (suggested extension
  531.           ".battery") is simply a raw dump of the 12 bytes. */
  532.  
  533.         if (Read(FileHandle, IOBuffer, 12) == -1)
  534.         {   DisplayBeep(NULL);
  535.         } else
  536.         {   for (i = 0; i <= 95; i++)
  537.             {   if (IOBuffer[i / 8] & (1 << (i % 8)))
  538.                 {   BattBuffer[i] = TRUE;
  539.                 } else BattBuffer[i] = FALSE;
  540.                 drawbit(i, WHITE);
  541.         }   }
  542.         Close(FileHandle);
  543.     }
  544.     updatebattgadgets();
  545. }
  546.  
  547. AGLOBAL void batt_save(ABOOL saveas)
  548. {   BPTR  FileHandle;
  549.     ULONG i;
  550.  
  551.     if (!batt.output[0] || saveas) // if we need a filename
  552.     {   if (saveasl("Save Battery RAM", "~(#?.info)"))
  553.         {   strcpy(batt.output, aslresult);
  554.         } else return;
  555.     }
  556.  
  557.     if (!(FileHandle = (BPTR) Open(aslresult, MODE_NEWFILE)))
  558.     {   DisplayBeep(NULL);
  559.         return;
  560.     }
  561.     for (i = 0; i <= 11; i++)
  562.     {   IOBuffer[i] = 0;
  563.     }
  564.     for (i = 0; i <= 95; i++)
  565.     {   if (BattBuffer[i])
  566.         {   IOBuffer[i / 8] |= BattBuffer[i] << (i % 8);
  567.     }   }
  568.     if (Write(FileHandle, IOBuffer, 12) == -1)
  569.     {   DisplayBeep(NULL);
  570.     }
  571.     Close(FileHandle);
  572. }
  573.  
  574. AGLOBAL ULONG Hook9Func(struct Hook *h, VOID *o, VOID *msg)
  575. {   /* "When the hook is called, the data argument points to the 
  576.     window object and message argument to the IntuiMessage." */
  577.  
  578.     AUTO    ULONG class;
  579.     AUTO    UWORD code, qual;
  580.     AUTO    SWORD mousex, mousey, realx, realy, bit;
  581.     PERSIST ULONG count = 0;
  582.  
  583.     geta4(); // wait till here before doing anything
  584.  
  585.      class = ((struct IntuiMessage *) msg)->Class;
  586.       code = ((struct IntuiMessage *) msg)->Code;
  587.       qual = ((struct IntuiMessage *) msg)->Qualifier;
  588.     mousex = ((struct IntuiMessage *) msg)->MouseX;
  589.     mousey = ((struct IntuiMessage *) msg)->MouseY;
  590.  
  591.     if (class == IDCMP_RAWKEY)
  592.     {   switch(code)
  593.         {
  594.         case SCAN_HELP:
  595.             helpabout();
  596.         break;
  597.         case SCAN_ESCAPE:
  598.             if ((qual & IEQUALIFIER_LSHIFT) || (qual & IEQUALIFIER_RSHIFT))
  599.             {   cleanexit(EXIT_SUCCESS);
  600.             } else page = 0;
  601.         break;
  602.         default:
  603.         break;
  604.     }   }
  605.     else
  606.     {   assert(class == IDCMP_MOUSEBUTTONS);
  607.  
  608.         if
  609.         (   mousex >= batt_gadgets[GID_9_SP1]->LeftEdge
  610.          && mousex <= batt_gadgets[GID_9_SP1]->LeftEdge + batt_gadgets[GID_9_SP1]->Width
  611.          && mousey >= batt_gadgets[GID_9_SP1]->TopEdge
  612.          && mousey <= batt_gadgets[GID_9_SP1]->TopEdge  + batt_gadgets[GID_9_SP1]->Height
  613.         )
  614.         {   realx = (mousex - batt_gadgets[GID_9_SP1]->LeftEdge - 5) / 8;
  615.             realy = (mousey - batt_gadgets[GID_9_SP1]->TopEdge  - 4) / 8;
  616.             if (realx < 0)
  617.                 realx = 0;
  618.             elif (realx > 31)
  619.                 realx = 31;
  620.             if (realy < 0)
  621.                 realy = 0;
  622.             elif (realy > 2)
  623.                 realy = 2;
  624.             bit = (realy * 32) + realx;
  625.             if (!(count % 2))
  626.             {   BattBuffer[bit] ^= 1;
  627.                 drawbit(bit, WHITE);
  628.                 updatebattgadgets();
  629.             }
  630.             count++;
  631.     }   }
  632.     return(1);
  633. }
  634.